|
100
|
How do I draw italic the group's name
Dim oListBar as P
Dim var_Group as local
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.Groups.Add("Group 1")
' oListBar.Groups.Add("Group 2").Italic = .t.
var_Group = oListBar.Groups.Add("Group 2")
oListBar.TemplateDef = "dim var_Group"
oListBar.TemplateDef = var_Group
oListBar.Template = "var_Group.Italic = True"
oListBar.Groups.Add("Group 3")
|
|
99
|
How do I bold the group's name
Dim oListBar as P
Dim var_Group as local
oListBar = topparent:CONTROL_ACTIVEX1.activex
' oListBar.Groups.Add("<b>Group</b> 1").CaptionFormat = 1
var_Group = oListBar.Groups.Add("<b>Group</b> 1")
oListBar.TemplateDef = "dim var_Group"
oListBar.TemplateDef = var_Group
oListBar.Template = "var_Group.CaptionFormat = 1"
|
|
98
|
How do I bold the group's name
Dim oListBar as P
Dim var_Group as local
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.Groups.Add("Group 1")
' oListBar.Groups.Add("Group 2").Bold = .t.
var_Group = oListBar.Groups.Add("Group 2")
oListBar.TemplateDef = "dim var_Group"
oListBar.TemplateDef = var_Group
oListBar.Template = "var_Group.Bold = True"
oListBar.Groups.Add("Group 3")
|
|
97
|
How can I align the icon in the group's caption
Dim oListBar as P
Dim var_Group as P
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Group = oListBar.Groups.Add("Group 1 <img>1</img>")
var_Group.CaptionFormat = 1
var_Group.Alignment = 2
|
|
96
|
How can I align the group's name
Dim oListBar as P
Dim var_Group as local
oListBar = topparent:CONTROL_ACTIVEX1.activex
' oListBar.Groups.Add("Group 1").Alignment = 2
var_Group = oListBar.Groups.Add("Group 1")
oListBar.TemplateDef = "dim var_Group"
oListBar.TemplateDef = var_Group
oListBar.Template = "var_Group.Alignment = 2"
|
|
95
|
How can I align the group's name
Dim oListBar as P
Dim var_Group as local
oListBar = topparent:CONTROL_ACTIVEX1.activex
' oListBar.Groups.Add("Group 1").Alignment = 0
var_Group = oListBar.Groups.Add("Group 1")
oListBar.TemplateDef = "dim var_Group"
oListBar.TemplateDef = var_Group
oListBar.Template = "var_Group.Alignment = 0"
|
|
94
|
How can I assign some extra data to a group
Dim oListBar as P
Dim var_Group as local
oListBar = topparent:CONTROL_ACTIVEX1.activex
' oListBar.Groups.Add("Group 1").UserData = "your data"
var_Group = oListBar.Groups.Add("Group 1")
oListBar.TemplateDef = "dim var_Group"
oListBar.TemplateDef = var_Group
oListBar.Template = "var_Group.UserData = `your data`"
|
|
93
|
How can I display an icon in the group's caption
Dim oListBar as P
Dim var_Group as local
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
' oListBar.Groups.Add("Group <img>1</img> text <img>2</img>").CaptionFormat = 1
var_Group = oListBar.Groups.Add("Group <img>1</img> text <img>2</img>")
oListBar.TemplateDef = "dim var_Group"
oListBar.TemplateDef = var_Group
oListBar.Template = "var_Group.CaptionFormat = 1"
|
|
92
|
How can I display an icon in the group's caption
Dim oListBar as P
Dim var_Group as local
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
' oListBar.Groups.Add("Group 1").Image = 1
var_Group = oListBar.Groups.Add("Group 1")
oListBar.TemplateDef = "dim var_Group"
oListBar.TemplateDef = var_Group
oListBar.Template = "var_Group.Image = 1"
|
|
91
|
How can I access an item by its position
Dim oListBar as P
Dim var_Group as P
Dim var_Item as local
Dim var_Item1 as local
oListBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oListBar.Groups.Add("Group 1")
var_Group.AddItem("Item 1")
var_Group.AddItem("Item 2")
' var_Group.AddItem("Item 3").Position = 0
var_Item = var_Group.AddItem("Item 3")
oListBar.TemplateDef = "dim var_Item"
oListBar.TemplateDef = var_Item
oListBar.Template = "var_Item.Position = 0"
' var_Group.ItemByPos(1).Bold = .t.
var_Item1 = var_Group.ItemByPos(1)
oListBar.TemplateDef = "dim var_Item1"
oListBar.TemplateDef = var_Item1
oListBar.Template = "var_Item1.Bold = True"
|
|
90
|
How can I change the position of a group
Dim oListBar as P
Dim var_Group as local
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.Groups.Add("Group 1")
oListBar.Groups.Add("Group 2")
' oListBar.Groups.Add("Group 3").Position = 0
var_Group = oListBar.Groups.Add("Group 3")
oListBar.TemplateDef = "dim var_Group"
oListBar.TemplateDef = var_Group
oListBar.Template = "var_Group.Position = 0"
|
|
89
|
How can I change the group's caption
Dim oListBar as P
Dim var_Group as P
oListBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oListBar.Groups.Add("Group 1")
var_Group.AddItem("Item 1")
var_Group.AddItem("Item 2")
var_Group.AddItem("Item 3")
var_Group.Caption = "new caption"
|
|
88
|
How can I get the number or count of items in a group
Dim oListBar as P
Dim var_Group as P
oListBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oListBar.Groups.Add("Group 1")
var_Group.AddItem("Item 1")
var_Group.AddItem("Item 2")
var_Group.AddItem("Item 3")
var_Group.AddItem(var_Group.Count)
|
|
87
|
How can I access an item in a group
Dim oListBar as P
Dim var_Group as P
Dim var_Item as local
oListBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oListBar.Groups.Add("Group 1")
var_Group.AddItem("Item 1")
var_Group.AddItem("Item 2")
var_Group.AddItem("Item 3")
' var_Group.Item(1).Bold = .t.
var_Item = var_Group.Item(1)
oListBar.TemplateDef = "dim var_Item"
oListBar.TemplateDef = var_Item
oListBar.Template = "var_Item.Bold = True"
|
|
86
|
How can I remove all items, from a group
Dim oListBar as P
Dim var_Group as P
oListBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oListBar.Groups.Add("Group 1")
var_Group.AddItem("Item 1")
var_Group.AddItem("Item 2")
var_Group.AddItem("Item 3")
var_Group.Clear()
|
|
85
|
How can I remove an item, from a group
Dim oListBar as P
Dim var_Group as P
oListBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oListBar.Groups.Add("Group 1")
var_Group.AddItem("Item 1")
var_Group.AddItem("Item 2")
var_Group.AddItem("Item 3")
var_Group.RemoveItem(1)
|
|
84
|
How can I add a new item to a group
Dim oListBar as P
Dim var_Group as P
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Group = oListBar.Groups.Add("Group 1")
var_Group.AddItem("Item 1",1)
|
|
83
|
How can I add a new item to a group
Dim oListBar as P
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.Groups.Add("Group 1").AddItem("Item 1")
|
|
82
|
How can I add a new item to a group
Dim oListBar as P
Dim var_Group as P
oListBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oListBar.Groups.Add("Group 1")
var_Group.AddItem("Item 1")
|
|
81
|
How can I get the groups as they are listed
Dim oListBar as P
Dim var_Groups as P
oListBar = topparent:CONTROL_ACTIVEX1.activex
var_Groups = oListBar.Groups
var_Groups.Add("Group 1")
var_Groups.Add("Group 2")
var_Groups.Add("Group 3")
|
|
80
|
How can I access a group by position
Dim oListBar as P
Dim var_Group as local
Dim var_Groups as P
oListBar = topparent:CONTROL_ACTIVEX1.activex
var_Groups = oListBar.Groups
var_Groups.Add("Group 1")
var_Groups.Add("Group 2")
var_Groups.Add("Group 3")
' var_Groups.ItemByPos(1).Bold = .t.
var_Group = var_Groups.ItemByPos(1)
oListBar.TemplateDef = "dim var_Group"
oListBar.TemplateDef = var_Group
oListBar.Template = "var_Group.Bold = True"
|
|
79
|
How can I access a group
Dim oListBar as P
Dim var_Group as local
Dim var_Groups as P
oListBar = topparent:CONTROL_ACTIVEX1.activex
var_Groups = oListBar.Groups
var_Groups.Add("Group 1")
var_Groups.Add("Group 2")
var_Groups.Add("Group 3")
' var_Groups.Item(1).Bold = .t.
var_Group = var_Groups.Item(1)
oListBar.TemplateDef = "dim var_Group"
oListBar.TemplateDef = var_Group
oListBar.Template = "var_Group.Bold = True"
|
|
78
|
How can I clear the groups collection
Dim oListBar as P
Dim var_Groups as P
oListBar = topparent:CONTROL_ACTIVEX1.activex
var_Groups = oListBar.Groups
var_Groups.Add("Group 1")
var_Groups.Add("Group 2")
var_Groups.Add("Group 3")
var_Groups.Clear()
|
|
77
|
How can I remove a group
Dim oListBar as P
Dim var_Groups as P
oListBar = topparent:CONTROL_ACTIVEX1.activex
var_Groups = oListBar.Groups
var_Groups.Add("Group 1")
var_Groups.Add("Group 2")
var_Groups.Add("Group 3")
var_Groups.Remove(1)
|
|
76
|
How can I add a group
Dim oListBar as P
Dim var_Group as P
oListBar = topparent:CONTROL_ACTIVEX1.activex
var_Group = oListBar.Groups.Add("Group 1")
var_Group.AddItem("Item 1")
var_Group.AddItem("Item 2")
|
|
75
|
How do I count the number of groups
Dim oListBar as P
Dim var_Groups as P
oListBar = topparent:CONTROL_ACTIVEX1.activex
var_Groups = oListBar.Groups
var_Groups.Add("Group 1")
var_Groups.Add("Group 2")
var_Groups.Add("Group 3")
var_Groups.Add(var_Groups.Count)
|
|
74
|
How can I display pictures with a custom size, instead icons, in the shortcut bar
Dim oListBar as P
Dim var_Group as local
Dim var_Group1 as local
Dim var_Group2 as local
Dim var_Group3 as local
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.ShowShortcutBar = .t.
' oListBar.Groups.Add("Group 1").Shortcut = "Set 1"
var_Group = oListBar.Groups.Add("Group 1")
oListBar.TemplateDef = "dim var_Group"
oListBar.TemplateDef = var_Group
oListBar.Template = "var_Group.Shortcut = `Set 1`"
' oListBar.Groups.Add("Group 2").Shortcut = "Set 1"
var_Group1 = oListBar.Groups.Add("Group 2")
oListBar.TemplateDef = "dim var_Group1"
oListBar.TemplateDef = var_Group1
oListBar.Template = "var_Group1.Shortcut = `Set 1`"
' oListBar.Groups.Add("Group 3").Shortcut = "Set 2"
var_Group2 = oListBar.Groups.Add("Group 3")
oListBar.TemplateDef = "dim var_Group2"
oListBar.TemplateDef = var_Group2
oListBar.Template = "var_Group2.Shortcut = `Set 2`"
' oListBar.Groups.Add("Group 4").Shortcut = "Set 2"
var_Group3 = oListBar.Groups.Add("Group 4")
oListBar.TemplateDef = "dim var_Group3"
oListBar.TemplateDef = var_Group3
oListBar.Template = "var_Group3.Shortcut = `Set 2`"
oListBar.Template = "ShortcutPicture(`Set 1`) = Me.ExecuteTemplate(`loadpicture(``c:\exontrol\images\zipdisk.gif``)`)" // oListBar.ShortcutPicture("Set 1") = oListBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oListBar.Template = "ShortcutPicture(`Set 2`) = Me.ExecuteTemplate(`loadpicture(``c:\exontrol\images\auction.gif``)`)" // oListBar.ShortcutPicture("Set 2") = oListBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\auction.gif`)")
oListBar.ShortcutPictureWidth = 32
oListBar.ShortcutPictureHeight = 32
oListBar.ShortcutBarHeight = 32
|
|
73
|
How can I display pictures instead icons, in the shortcut bar
Dim oListBar as P
Dim var_Group as local
Dim var_Group1 as local
Dim var_Group2 as local
Dim var_Group3 as local
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.ShowShortcutBar = .t.
' oListBar.Groups.Add("Group 1").Shortcut = "Set 1"
var_Group = oListBar.Groups.Add("Group 1")
oListBar.TemplateDef = "dim var_Group"
oListBar.TemplateDef = var_Group
oListBar.Template = "var_Group.Shortcut = `Set 1`"
' oListBar.Groups.Add("Group 2").Shortcut = "Set 1"
var_Group1 = oListBar.Groups.Add("Group 2")
oListBar.TemplateDef = "dim var_Group1"
oListBar.TemplateDef = var_Group1
oListBar.Template = "var_Group1.Shortcut = `Set 1`"
' oListBar.Groups.Add("Group 3").Shortcut = "Set 2"
var_Group2 = oListBar.Groups.Add("Group 3")
oListBar.TemplateDef = "dim var_Group2"
oListBar.TemplateDef = var_Group2
oListBar.Template = "var_Group2.Shortcut = `Set 2`"
' oListBar.Groups.Add("Group 4").Shortcut = "Set 2"
var_Group3 = oListBar.Groups.Add("Group 4")
oListBar.TemplateDef = "dim var_Group3"
oListBar.TemplateDef = var_Group3
oListBar.Template = "var_Group3.Shortcut = `Set 2`"
oListBar.Template = "ShortcutPicture(`Set 1`) = Me.ExecuteTemplate(`loadpicture(``c:\exontrol\images\zipdisk.gif``)`)" // oListBar.ShortcutPicture("Set 1") = oListBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oListBar.Template = "ShortcutPicture(`Set 2`) = Me.ExecuteTemplate(`loadpicture(``c:\exontrol\images\auction.gif``)`)" // oListBar.ShortcutPicture("Set 2") = oListBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\auction.gif`)")
oListBar.ShortcutBarHeight = 44
|
|
72
|
How can I change the visual appearance of the shortcut bar, using EBN files
Dim oListBar as P
Dim var_Group as local
Dim var_Group1 as local
Dim var_Group2 as local
Dim var_Group3 as local
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oListBar.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oListBar.ShowShortcutBar = .t.
' oListBar.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
var_Group = oListBar.Groups.Add("Group 1")
oListBar.TemplateDef = "dim var_Group"
oListBar.TemplateDef = var_Group
oListBar.Template = "var_Group.Shortcut = `Set <img>1</img>`"
' oListBar.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
var_Group1 = oListBar.Groups.Add("Group 2")
oListBar.TemplateDef = "dim var_Group1"
oListBar.TemplateDef = var_Group1
oListBar.Template = "var_Group1.Shortcut = `Set <img>1</img>`"
' oListBar.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
var_Group2 = oListBar.Groups.Add("Group 3")
oListBar.TemplateDef = "dim var_Group2"
oListBar.TemplateDef = var_Group2
oListBar.Template = "var_Group2.Shortcut = `Set <img>2</img>`"
' oListBar.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
var_Group3 = oListBar.Groups.Add("Group 4")
oListBar.TemplateDef = "dim var_Group3"
oListBar.TemplateDef = var_Group3
oListBar.Template = "var_Group3.Shortcut = `Set <img>2</img>`"
oListBar.ShortcutResizeBackColor = 33554432
oListBar.ShortcutBarSelCaptionBackColor = 16777216
oListBar.ShortcutBarSelBackColor = 16777216
oListBar.BackColorGroup = 16777216
|
|
71
|
How can I change the visual appearance of the separator between groups and the shortcut bar, using your EBN files
Dim oListBar as P
Dim var_Group as local
Dim var_Group1 as local
Dim var_Group2 as local
Dim var_Group3 as local
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oListBar.ShowShortcutBar = .t.
' oListBar.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
var_Group = oListBar.Groups.Add("Group 1")
oListBar.TemplateDef = "dim var_Group"
oListBar.TemplateDef = var_Group
oListBar.Template = "var_Group.Shortcut = `Set <img>1</img>`"
' oListBar.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
var_Group1 = oListBar.Groups.Add("Group 2")
oListBar.TemplateDef = "dim var_Group1"
oListBar.TemplateDef = var_Group1
oListBar.Template = "var_Group1.Shortcut = `Set <img>1</img>`"
' oListBar.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
var_Group2 = oListBar.Groups.Add("Group 3")
oListBar.TemplateDef = "dim var_Group2"
oListBar.TemplateDef = var_Group2
oListBar.Template = "var_Group2.Shortcut = `Set <img>2</img>`"
' oListBar.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
var_Group3 = oListBar.Groups.Add("Group 4")
oListBar.TemplateDef = "dim var_Group3"
oListBar.TemplateDef = var_Group3
oListBar.Template = "var_Group3.Shortcut = `Set <img>2</img>`"
oListBar.ShortcutResizeBackColor = 16777216
oListBar.ExpandShortcutCount = 1
|
|
70
|
How do I change the background color of the separator between groups and the shortcut bar
Dim oListBar as P
Dim var_Group as local
Dim var_Group1 as local
Dim var_Group2 as local
Dim var_Group3 as local
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oListBar.ShowShortcutBar = .t.
' oListBar.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
var_Group = oListBar.Groups.Add("Group 1")
oListBar.TemplateDef = "dim var_Group"
oListBar.TemplateDef = var_Group
oListBar.Template = "var_Group.Shortcut = `Set <img>1</img>`"
' oListBar.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
var_Group1 = oListBar.Groups.Add("Group 2")
oListBar.TemplateDef = "dim var_Group1"
oListBar.TemplateDef = var_Group1
oListBar.Template = "var_Group1.Shortcut = `Set <img>1</img>`"
' oListBar.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
var_Group2 = oListBar.Groups.Add("Group 3")
oListBar.TemplateDef = "dim var_Group2"
oListBar.TemplateDef = var_Group2
oListBar.Template = "var_Group2.Shortcut = `Set <img>2</img>`"
' oListBar.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
var_Group3 = oListBar.Groups.Add("Group 4")
oListBar.TemplateDef = "dim var_Group3"
oListBar.TemplateDef = var_Group3
oListBar.Template = "var_Group3.Shortcut = `Set <img>2</img>`"
oListBar.ShortcutResizeBackColor = 255
oListBar.ExpandShortcutCount = 1
|
|
69
|
How can I change the visual appearance of the shortcut bar, using your EBN files
Dim oListBar as P
Dim var_Group as local
Dim var_Group1 as local
Dim var_Group2 as local
Dim var_Group3 as local
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oListBar.ShowShortcutBar = .t.
' oListBar.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
var_Group = oListBar.Groups.Add("Group 1")
oListBar.TemplateDef = "dim var_Group"
oListBar.TemplateDef = var_Group
oListBar.Template = "var_Group.Shortcut = `Set <img>1</img>`"
' oListBar.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
var_Group1 = oListBar.Groups.Add("Group 2")
oListBar.TemplateDef = "dim var_Group1"
oListBar.TemplateDef = var_Group1
oListBar.Template = "var_Group1.Shortcut = `Set <img>1</img>`"
' oListBar.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
var_Group2 = oListBar.Groups.Add("Group 3")
oListBar.TemplateDef = "dim var_Group2"
oListBar.TemplateDef = var_Group2
oListBar.Template = "var_Group2.Shortcut = `Set <img>2</img>`"
' oListBar.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
var_Group3 = oListBar.Groups.Add("Group 4")
oListBar.TemplateDef = "dim var_Group3"
oListBar.TemplateDef = var_Group3
oListBar.Template = "var_Group3.Shortcut = `Set <img>2</img>`"
oListBar.ShortcutBarSelCaptionBackColor = 16777216
oListBar.ExpandShortcutCount = 1
|
|
68
|
How do I change the selection background color in the shortcut bar
Dim oListBar as P
Dim var_Group as local
Dim var_Group1 as local
Dim var_Group2 as local
Dim var_Group3 as local
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oListBar.ShowShortcutBar = .t.
' oListBar.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
var_Group = oListBar.Groups.Add("Group 1")
oListBar.TemplateDef = "dim var_Group"
oListBar.TemplateDef = var_Group
oListBar.Template = "var_Group.Shortcut = `Set <img>1</img>`"
' oListBar.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
var_Group1 = oListBar.Groups.Add("Group 2")
oListBar.TemplateDef = "dim var_Group1"
oListBar.TemplateDef = var_Group1
oListBar.Template = "var_Group1.Shortcut = `Set <img>1</img>`"
' oListBar.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
var_Group2 = oListBar.Groups.Add("Group 3")
oListBar.TemplateDef = "dim var_Group2"
oListBar.TemplateDef = var_Group2
oListBar.Template = "var_Group2.Shortcut = `Set <img>2</img>`"
' oListBar.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
var_Group3 = oListBar.Groups.Add("Group 4")
oListBar.TemplateDef = "dim var_Group3"
oListBar.TemplateDef = var_Group3
oListBar.Template = "var_Group3.Shortcut = `Set <img>2</img>`"
oListBar.ShortcutBarSelCaptionBackColor = 255
oListBar.ExpandShortcutCount = 1
|
|
67
|
How can I change the visual appearance of the shortcut bar, using your EBN files
Dim oListBar as P
Dim var_Group as local
Dim var_Group1 as local
Dim var_Group2 as local
Dim var_Group3 as local
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oListBar.ShowShortcutBar = .t.
' oListBar.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
var_Group = oListBar.Groups.Add("Group 1")
oListBar.TemplateDef = "dim var_Group"
oListBar.TemplateDef = var_Group
oListBar.Template = "var_Group.Shortcut = `Set <img>1</img>`"
' oListBar.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
var_Group1 = oListBar.Groups.Add("Group 2")
oListBar.TemplateDef = "dim var_Group1"
oListBar.TemplateDef = var_Group1
oListBar.Template = "var_Group1.Shortcut = `Set <img>1</img>`"
' oListBar.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
var_Group2 = oListBar.Groups.Add("Group 3")
oListBar.TemplateDef = "dim var_Group2"
oListBar.TemplateDef = var_Group2
oListBar.Template = "var_Group2.Shortcut = `Set <img>2</img>`"
' oListBar.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
var_Group3 = oListBar.Groups.Add("Group 4")
oListBar.TemplateDef = "dim var_Group3"
oListBar.TemplateDef = var_Group3
oListBar.Template = "var_Group3.Shortcut = `Set <img>2</img>`"
oListBar.ShortcutBarSelBackColor = 16777216
|
|
66
|
How do I change the selection background color in the shortcut bar
Dim oListBar as P
Dim var_Group as local
Dim var_Group1 as local
Dim var_Group2 as local
Dim var_Group3 as local
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oListBar.ShowShortcutBar = .t.
' oListBar.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
var_Group = oListBar.Groups.Add("Group 1")
oListBar.TemplateDef = "dim var_Group"
oListBar.TemplateDef = var_Group
oListBar.Template = "var_Group.Shortcut = `Set <img>1</img>`"
' oListBar.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
var_Group1 = oListBar.Groups.Add("Group 2")
oListBar.TemplateDef = "dim var_Group1"
oListBar.TemplateDef = var_Group1
oListBar.Template = "var_Group1.Shortcut = `Set <img>1</img>`"
' oListBar.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
var_Group2 = oListBar.Groups.Add("Group 3")
oListBar.TemplateDef = "dim var_Group2"
oListBar.TemplateDef = var_Group2
oListBar.Template = "var_Group2.Shortcut = `Set <img>2</img>`"
' oListBar.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
var_Group3 = oListBar.Groups.Add("Group 4")
oListBar.TemplateDef = "dim var_Group3"
oListBar.TemplateDef = var_Group3
oListBar.Template = "var_Group3.Shortcut = `Set <img>2</img>`"
oListBar.ShortcutBarSelBackColor = 255
|
|
65
|
How can I change the visual appearance of the shortcut bar, using your EBN files
Dim oListBar as P
Dim var_Group as local
Dim var_Group1 as local
Dim var_Group2 as local
Dim var_Group3 as local
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oListBar.ShowShortcutBar = .t.
' oListBar.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
var_Group = oListBar.Groups.Add("Group 1")
oListBar.TemplateDef = "dim var_Group"
oListBar.TemplateDef = var_Group
oListBar.Template = "var_Group.Shortcut = `Set <img>1</img>`"
' oListBar.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
var_Group1 = oListBar.Groups.Add("Group 2")
oListBar.TemplateDef = "dim var_Group1"
oListBar.TemplateDef = var_Group1
oListBar.Template = "var_Group1.Shortcut = `Set <img>1</img>`"
' oListBar.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
var_Group2 = oListBar.Groups.Add("Group 3")
oListBar.TemplateDef = "dim var_Group2"
oListBar.TemplateDef = var_Group2
oListBar.Template = "var_Group2.Shortcut = `Set <img>2</img>`"
' oListBar.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
var_Group3 = oListBar.Groups.Add("Group 4")
oListBar.TemplateDef = "dim var_Group3"
oListBar.TemplateDef = var_Group3
oListBar.Template = "var_Group3.Shortcut = `Set <img>2</img>`"
oListBar.ShortcutBarBackColor = 16777216
|
|
64
|
How do I change the background color in the shortcut bar
Dim oListBar as P
Dim var_Group as local
Dim var_Group1 as local
Dim var_Group2 as local
Dim var_Group3 as local
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oListBar.ShowShortcutBar = .t.
' oListBar.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
var_Group = oListBar.Groups.Add("Group 1")
oListBar.TemplateDef = "dim var_Group"
oListBar.TemplateDef = var_Group
oListBar.Template = "var_Group.Shortcut = `Set <img>1</img>`"
' oListBar.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
var_Group1 = oListBar.Groups.Add("Group 2")
oListBar.TemplateDef = "dim var_Group1"
oListBar.TemplateDef = var_Group1
oListBar.Template = "var_Group1.Shortcut = `Set <img>1</img>`"
' oListBar.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
var_Group2 = oListBar.Groups.Add("Group 3")
oListBar.TemplateDef = "dim var_Group2"
oListBar.TemplateDef = var_Group2
oListBar.Template = "var_Group2.Shortcut = `Set <img>2</img>`"
' oListBar.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
var_Group3 = oListBar.Groups.Add("Group 4")
oListBar.TemplateDef = "dim var_Group3"
oListBar.TemplateDef = var_Group3
oListBar.Template = "var_Group3.Shortcut = `Set <img>2</img>`"
oListBar.ShortcutBarBackColor = 255
|
|
63
|
How can I programmatically change expand or collapse the shortcut bar
Dim oListBar as P
Dim var_Group as local
Dim var_Group1 as local
Dim var_Group2 as local
Dim var_Group3 as local
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oListBar.ShowShortcutBar = .t.
' oListBar.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
var_Group = oListBar.Groups.Add("Group 1")
oListBar.TemplateDef = "dim var_Group"
oListBar.TemplateDef = var_Group
oListBar.Template = "var_Group.Shortcut = `Set <img>1</img>`"
' oListBar.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
var_Group1 = oListBar.Groups.Add("Group 2")
oListBar.TemplateDef = "dim var_Group1"
oListBar.TemplateDef = var_Group1
oListBar.Template = "var_Group1.Shortcut = `Set <img>1</img>`"
' oListBar.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
var_Group2 = oListBar.Groups.Add("Group 3")
oListBar.TemplateDef = "dim var_Group2"
oListBar.TemplateDef = var_Group2
oListBar.Template = "var_Group2.Shortcut = `Set <img>2</img>`"
' oListBar.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
var_Group3 = oListBar.Groups.Add("Group 4")
oListBar.TemplateDef = "dim var_Group3"
oListBar.TemplateDef = var_Group3
oListBar.Template = "var_Group3.Shortcut = `Set <img>2</img>`"
oListBar.ExpandShortcutCount = 1
|
|
62
|
How do I change the icon for the expanding or collapsing the shortcut bar
Dim oListBar as P
Dim var_Group as local
Dim var_Group1 as local
Dim var_Group2 as local
Dim var_Group3 as local
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oListBar.ShowShortcutBar = .t.
' oListBar.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
var_Group = oListBar.Groups.Add("Group 1")
oListBar.TemplateDef = "dim var_Group"
oListBar.TemplateDef = var_Group
oListBar.Template = "var_Group.Shortcut = `Set <img>1</img>`"
' oListBar.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
var_Group1 = oListBar.Groups.Add("Group 2")
oListBar.TemplateDef = "dim var_Group1"
oListBar.TemplateDef = var_Group1
oListBar.Template = "var_Group1.Shortcut = `Set <img>1</img>`"
' oListBar.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
var_Group2 = oListBar.Groups.Add("Group 3")
oListBar.TemplateDef = "dim var_Group2"
oListBar.TemplateDef = var_Group2
oListBar.Template = "var_Group2.Shortcut = `Set <img>2</img>`"
' oListBar.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
var_Group3 = oListBar.Groups.Add("Group 4")
oListBar.TemplateDef = "dim var_Group3"
oListBar.TemplateDef = var_Group3
oListBar.Template = "var_Group3.Shortcut = `Set <img>2</img>`"
oListBar.ExpandShortcutImage = 3
|
|
61
|
How can I enable or disable resizing the shortcut bar
Dim oListBar as P
Dim var_Group as local
Dim var_Group1 as local
Dim var_Group2 as local
Dim var_Group3 as local
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oListBar.ShowShortcutBar = .t.
' oListBar.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
var_Group = oListBar.Groups.Add("Group 1")
oListBar.TemplateDef = "dim var_Group"
oListBar.TemplateDef = var_Group
oListBar.Template = "var_Group.Shortcut = `Set <img>1</img>`"
' oListBar.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
var_Group1 = oListBar.Groups.Add("Group 2")
oListBar.TemplateDef = "dim var_Group1"
oListBar.TemplateDef = var_Group1
oListBar.Template = "var_Group1.Shortcut = `Set <img>1</img>`"
' oListBar.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
var_Group2 = oListBar.Groups.Add("Group 3")
oListBar.TemplateDef = "dim var_Group2"
oListBar.TemplateDef = var_Group2
oListBar.Template = "var_Group2.Shortcut = `Set <img>2</img>`"
' oListBar.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
var_Group3 = oListBar.Groups.Add("Group 4")
oListBar.TemplateDef = "dim var_Group3"
oListBar.TemplateDef = var_Group3
oListBar.Template = "var_Group3.Shortcut = `Set <img>2</img>`"
oListBar.ExpandShortcutCount = 1
oListBar.AllowResizeShortcutBar = .f.
|
|
60
|
How do I specify the height of the shortcut bar
Dim oListBar as P
Dim var_Group as local
Dim var_Group1 as local
Dim var_Group2 as local
Dim var_Group3 as local
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oListBar.ShowShortcutBar = .t.
' oListBar.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
var_Group = oListBar.Groups.Add("Group 1")
oListBar.TemplateDef = "dim var_Group"
oListBar.TemplateDef = var_Group
oListBar.Template = "var_Group.Shortcut = `Set <img>1</img>`"
' oListBar.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
var_Group1 = oListBar.Groups.Add("Group 2")
oListBar.TemplateDef = "dim var_Group1"
oListBar.TemplateDef = var_Group1
oListBar.Template = "var_Group1.Shortcut = `Set <img>1</img>`"
' oListBar.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
var_Group2 = oListBar.Groups.Add("Group 3")
oListBar.TemplateDef = "dim var_Group2"
oListBar.TemplateDef = var_Group2
oListBar.Template = "var_Group2.Shortcut = `Set <img>2</img>`"
' oListBar.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
var_Group3 = oListBar.Groups.Add("Group 4")
oListBar.TemplateDef = "dim var_Group3"
oListBar.TemplateDef = var_Group3
oListBar.Template = "var_Group3.Shortcut = `Set <img>2</img>`"
oListBar.ExpandShortcutCount = 1
oListBar.ShortcutBarHeight = 16
|
|
59
|
How do I select a shortcut
Dim oListBar as P
Dim var_Group as local
Dim var_Group1 as local
Dim var_Group2 as local
Dim var_Group3 as local
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oListBar.ShowShortcutBar = .t.
' oListBar.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
var_Group = oListBar.Groups.Add("Group 1")
oListBar.TemplateDef = "dim var_Group"
oListBar.TemplateDef = var_Group
oListBar.Template = "var_Group.Shortcut = `Set <img>1</img>`"
' oListBar.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
var_Group1 = oListBar.Groups.Add("Group 2")
oListBar.TemplateDef = "dim var_Group1"
oListBar.TemplateDef = var_Group1
oListBar.Template = "var_Group1.Shortcut = `Set <img>1</img>`"
' oListBar.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
var_Group2 = oListBar.Groups.Add("Group 3")
oListBar.TemplateDef = "dim var_Group2"
oListBar.TemplateDef = var_Group2
oListBar.Template = "var_Group2.Shortcut = `Set <img>2</img>`"
' oListBar.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
var_Group3 = oListBar.Groups.Add("Group 4")
oListBar.TemplateDef = "dim var_Group3"
oListBar.TemplateDef = var_Group3
oListBar.Template = "var_Group3.Shortcut = `Set <img>2</img>`"
oListBar.ExpandShortcutCount = 1
oListBar.SelectShortcut = "Set <img>2</img>"
|
|
58
|
How do I show or hide the shortcut bar
Dim oListBar as P
Dim var_Group as local
Dim var_Group1 as local
Dim var_Group2 as local
Dim var_Group3 as local
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oListBar.ShowShortcutBar = .t.
' oListBar.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
var_Group = oListBar.Groups.Add("Group 1")
oListBar.TemplateDef = "dim var_Group"
oListBar.TemplateDef = var_Group
oListBar.Template = "var_Group.Shortcut = `Set <img>1</img>`"
' oListBar.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
var_Group1 = oListBar.Groups.Add("Group 2")
oListBar.TemplateDef = "dim var_Group1"
oListBar.TemplateDef = var_Group1
oListBar.Template = "var_Group1.Shortcut = `Set <img>1</img>`"
' oListBar.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
var_Group2 = oListBar.Groups.Add("Group 3")
oListBar.TemplateDef = "dim var_Group2"
oListBar.TemplateDef = var_Group2
oListBar.Template = "var_Group2.Shortcut = `Set <img>2</img>`"
' oListBar.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
var_Group3 = oListBar.Groups.Add("Group 4")
oListBar.TemplateDef = "dim var_Group3"
oListBar.TemplateDef = var_Group3
oListBar.Template = "var_Group3.Shortcut = `Set <img>2</img>`"
oListBar.ExpandShortcutCount = 1
|
|
57
|
How do I access the groups collection
Dim oListBar as P
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.Groups.Add("Group 1")
|
|
56
|
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions, after the user clicks it
Dim oListBar as P
Dim var_Group as local
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.Template = "FormatAnchor(False) = `<b><u><fgcolor=FF0000> </fgcolor></u></b>`" // oListBar.FormatAnchor(.f.) = "<b><u><fgcolor=FF0000> </fgcolor></u></b>"
oListBar.HighlightItemType = 0
' oListBar.Groups.Add("Group <a1><b>1</b></a>").CaptionFormat = 1
var_Group = oListBar.Groups.Add("Group <a1><b>1</b></a>")
oListBar.TemplateDef = "dim var_Group"
oListBar.TemplateDef = var_Group
oListBar.Template = "var_Group.CaptionFormat = 1"
|
|
55
|
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions, after the user clicks it
Dim oListBar as P
Dim var_Group as P
Dim var_Item as local
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.Template = "FormatAnchor(False) = `<b><u><fgcolor=FF0000> </fgcolor></u></b>`" // oListBar.FormatAnchor(.f.) = "<b><u><fgcolor=FF0000> </fgcolor></u></b>"
oListBar.HighlightItemType = 0
var_Group = oListBar.Groups.Add("Group 1")
' var_Group.AddItem("Item <a1><b>1</b></a>").CaptionFormat = 1
var_Item = var_Group.AddItem("Item <a1><b>1</b></a>")
oListBar.TemplateDef = "dim var_Item"
oListBar.TemplateDef = var_Item
oListBar.Template = "var_Item.CaptionFormat = 1"
|
|
54
|
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions
Dim oListBar as P
Dim var_Group as local
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.HighlightItemType = 0
oListBar.Template = "FormatAnchor(True) = `<b><u><fgcolor=FF0000> </fgcolor></u></b>`" // oListBar.FormatAnchor(.t.) = "<b><u><fgcolor=FF0000> </fgcolor></u></b>"
' oListBar.Groups.Add("Group <a1><b>1</b></a>").CaptionFormat = 1
var_Group = oListBar.Groups.Add("Group <a1><b>1</b></a>")
oListBar.TemplateDef = "dim var_Group"
oListBar.TemplateDef = var_Group
oListBar.Template = "var_Group.CaptionFormat = 1"
|
|
53
|
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions
Dim oListBar as P
Dim var_Group as P
Dim var_Item as local
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.HighlightItemType = 0
oListBar.Template = "FormatAnchor(True) = `<b><u><fgcolor=FF0000> </fgcolor></u></b>`" // oListBar.FormatAnchor(.t.) = "<b><u><fgcolor=FF0000> </fgcolor></u></b>"
var_Group = oListBar.Groups.Add("Group 1")
' var_Group.AddItem("Item <a1><b>1</b></a>").CaptionFormat = 1
var_Item = var_Group.AddItem("Item <a1><b>1</b></a>")
oListBar.TemplateDef = "dim var_Item"
oListBar.TemplateDef = var_Item
oListBar.Template = "var_Item.CaptionFormat = 1"
|
|
52
|
How can I add several pictures and icons to an item
Dim oListBar as P
Dim var_Group as P
Dim var_Item as P
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oListBar.Template = "HTMLPicture(`pic1`) = `c:\exontrol\images\zipdisk.gif`" // oListBar.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
oListBar.Template = "HTMLPicture(`pic2`) = `c:\exontrol\images\auction.gif`" // oListBar.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
var_Group = oListBar.Groups.Add("Group 1")
var_Group.ItemHeight = 48
var_Item = var_Group.AddItem("<img>pic1</img> te <img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> xt <img>pic2</img>")
var_Item.Image = 2
var_Item.CaptionFormat = 1
|
|
51
|
How can I add several pictures and icons to an item
Dim oListBar as P
Dim var_Group as P
Dim var_Item as P
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oListBar.Template = "HTMLPicture(`pic1`) = `c:\exontrol\images\zipdisk.gif`" // oListBar.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
oListBar.Template = "HTMLPicture(`pic2`) = `c:\exontrol\images\auction.gif`" // oListBar.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
var_Group = oListBar.Groups.Add("Group 1")
var_Group.ItemHeight = 48
var_Item = var_Group.AddItem("<img>pic1</img> te <img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> xt <img>pic2</img>")
var_Item.Image = 2
var_Item.CaptionFormat = 1
|
|
50
|
How can I add several pictures to an item
Dim oListBar as P
Dim var_Group as P
Dim var_Item as local
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.Template = "HTMLPicture(`pic1`) = `c:\exontrol\images\zipdisk.gif`" // oListBar.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
oListBar.Template = "HTMLPicture(`pic2`) = `c:\exontrol\images\auction.gif`" // oListBar.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
var_Group = oListBar.Groups.Add("Group 1")
var_Group.ItemHeight = 48
' var_Group.AddItem("<img>pic1</img> text <img>pic2</img>").CaptionFormat = 1
var_Item = var_Group.AddItem("<img>pic1</img> text <img>pic2</img>")
oListBar.TemplateDef = "dim var_Item"
oListBar.TemplateDef = var_Item
oListBar.Template = "var_Item.CaptionFormat = 1"
|
|
49
|
How can I add several pictures to a group
Dim oListBar as P
Dim var_Group as P
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oListBar.Template = "HTMLPicture(`pic1`) = `c:\exontrol\images\zipdisk.gif`" // oListBar.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
oListBar.Template = "HTMLPicture(`pic2`) = `c:\exontrol\images\auction.gif`" // oListBar.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
oListBar.GroupHeight = 48
var_Group = oListBar.Groups.Add("<img>pic1</img> te <img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> xt <img>pic2</img>")
var_Group.Image = 2
var_Group.CaptionFormat = 1
var_Group.Picture = oListBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\colorize.gif`)")
var_Group.AddItem("Item 1")
var_Group.AddItem("Item 2")
|
|
48
|
How can I add several pictures and icons to a group
Dim oListBar as P
Dim var_Group as local
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oListBar.Template = "HTMLPicture(`pic1`) = `c:\exontrol\images\zipdisk.gif`" // oListBar.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
oListBar.Template = "HTMLPicture(`pic2`) = `c:\exontrol\images\auction.gif`" // oListBar.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
oListBar.GroupHeight = 48
' oListBar.Groups.Add("<img>pic1</img> te <img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> xt <img>pic2</img>").CaptionFormat = 1
var_Group = oListBar.Groups.Add("<img>pic1</img> te <img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> xt <img>pic2</img>")
oListBar.TemplateDef = "dim var_Group"
oListBar.TemplateDef = var_Group
oListBar.Template = "var_Group.CaptionFormat = 1"
|
|
47
|
How can I add several pictures to a group
Dim oListBar as P
Dim var_Group as P
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.Template = "HTMLPicture(`pic1`) = `c:\exontrol\images\zipdisk.gif`" // oListBar.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
oListBar.Template = "HTMLPicture(`pic2`) = `c:\exontrol\images\auction.gif`" // oListBar.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
oListBar.GroupHeight = 48
var_Group = oListBar.Groups.Add("<img>pic1</img> text <img>pic2</img>")
var_Group.CaptionFormat = 1
var_Group.Picture = oListBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\colorize.gif`)")
var_Group.AddItem("Item 1")
var_Group.AddItem("Item 2")
|
|
46
|
How can I add several pictures to a group
Dim oListBar as P
Dim var_Group as local
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.Template = "HTMLPicture(`pic1`) = `c:\exontrol\images\zipdisk.gif`" // oListBar.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
oListBar.Template = "HTMLPicture(`pic2`) = `c:\exontrol\images\auction.gif`" // oListBar.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
oListBar.GroupHeight = 48
' oListBar.Groups.Add("<img>pic1</img> text <img>pic2</img>").CaptionFormat = 1
var_Group = oListBar.Groups.Add("<img>pic1</img> text <img>pic2</img>")
oListBar.TemplateDef = "dim var_Group"
oListBar.TemplateDef = var_Group
oListBar.Template = "var_Group.CaptionFormat = 1"
|
|
45
|
How do I force refreshing the control
Dim oListBar as P
Dim var_Group as P
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.BeginUpdate()
var_Group = oListBar.Groups.Add("Group 1")
var_Group.AddItem("Item 1")
oListBar.EndUpdate()
|
|
44
|
I've seen that the width of the tooltip is variable. Can I make it larger
Dim oListBar as P
Dim var_Group as local
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.ToolTipWidth = 328
' oListBar.Groups.Add("ToolTip").ToolTip = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group."
var_Group = oListBar.Groups.Add("ToolTip")
oListBar.TemplateDef = "dim var_Group"
oListBar.TemplateDef = var_Group
oListBar.Template = "var_Group.ToolTip = `<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group.`"
|
|
43
|
How do I let the tooltip being displayed longer
Dim oListBar as P
Dim var_Group as local
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.ToolTipPopDelay = 10000
' oListBar.Groups.Add("ToolTip").ToolTip = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group."
var_Group = oListBar.Groups.Add("ToolTip")
oListBar.TemplateDef = "dim var_Group"
oListBar.TemplateDef = var_Group
oListBar.Template = "var_Group.ToolTip = `<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group.`"
|
|
42
|
Can I change the default border of the tooltip, using your EBN files
Dim oListBar as P
Dim var_Group as local
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.ToolTipDelay = 1
oListBar.ToolTipWidth = 364
oListBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oListBar.Template = "Background(64) = 16777216" // oListBar.Background(64) = 16777216
' oListBar.Groups.Add("ToolTip").ToolTip = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group."
var_Group = oListBar.Groups.Add("ToolTip")
oListBar.TemplateDef = "dim var_Group"
oListBar.TemplateDef = var_Group
oListBar.Template = "var_Group.ToolTip = `<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group.`"
|
|
41
|
Can I change the background color for the tooltip
Dim oListBar as P
Dim var_Group as local
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.ToolTipDelay = 1
oListBar.ToolTipWidth = 364
oListBar.Template = "Background(65) = 255" // oListBar.Background(65) = 255
' oListBar.Groups.Add("ToolTip").ToolTip = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group."
var_Group = oListBar.Groups.Add("ToolTip")
oListBar.TemplateDef = "dim var_Group"
oListBar.TemplateDef = var_Group
oListBar.Template = "var_Group.ToolTip = `<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group.`"
|
|
40
|
Does the tooltip support HTML format
Dim oListBar as P
Dim var_Group as local
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.ToolTipDelay = 1
oListBar.ToolTipWidth = 364
' oListBar.Groups.Add("ToolTip").ToolTip = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a <fgcolor=FF0000>group</fgcolor>"
var_Group = oListBar.Groups.Add("ToolTip")
oListBar.TemplateDef = "dim var_Group"
oListBar.TemplateDef = var_Group
oListBar.Template = "var_Group.ToolTip = `<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a <fgcolor=FF0000>group</fgcolor>`"
|
|
39
|
Can I change the forecolor for the tooltip
Dim oListBar as P
Dim var_Group as local
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.ToolTipDelay = 1
oListBar.ToolTipWidth = 364
oListBar.Template = "Background(66) = 255" // oListBar.Background(66) = 255
' oListBar.Groups.Add("ToolTip").ToolTip = "This is a bit of text that's shown when the cursor hovers the group."
var_Group = oListBar.Groups.Add("ToolTip")
oListBar.TemplateDef = "dim var_Group"
oListBar.TemplateDef = var_Group
oListBar.Template = "var_Group.ToolTip = `This is a bit of text that's shown when the cursor hovers the group.`"
|
|
38
|
Can I change the foreground color for the tooltip
Dim oListBar as P
Dim var_Group as local
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.ToolTipDelay = 1
oListBar.ToolTipWidth = 364
' oListBar.Groups.Add("ToolTip").ToolTip = "<fgcolor=FF0000>This is a bit of text that's shown when the cursor hovers the group.</fgcolor>"
var_Group = oListBar.Groups.Add("ToolTip")
oListBar.TemplateDef = "dim var_Group"
oListBar.TemplateDef = var_Group
oListBar.Template = "var_Group.ToolTip = `<fgcolor=FF0000>This is a bit of text that's shown when the cursor hovers the group.</fgcolor>`"
|
|
37
|
Can I change the font for the tooltip
Dim oListBar as P
Dim var_Group as local
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.ToolTipDelay = 1
oListBar.ToolTipWidth = 364
' oListBar.Groups.Add("ToolTip").ToolTip = "<font Tahoma>This is a bit of text that's shown when the cursor hovers the group.</font> Back to the normal font"
var_Group = oListBar.Groups.Add("ToolTip")
oListBar.TemplateDef = "dim var_Group"
oListBar.TemplateDef = var_Group
oListBar.Template = "var_Group.ToolTip = `<font Tahoma>This is a bit of text that's shown when the cursor hovers the group.</font> Back to the normal font`"
|
|
36
|
Can I change the font for the tooltip
Dim oListBar as P
Dim var_Group as local
Dim var_StdFont as P
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.ToolTipDelay = 1
var_StdFont = oListBar.ToolTipFont
var_StdFont.Name = "Tahoma"
var_StdFont.Size = 14
oListBar.ToolTipWidth = 364
' oListBar.Groups.Add("ToolTip").ToolTip = "This is a bit of text that's shown when the cursor hovers the group."
var_Group = oListBar.Groups.Add("ToolTip")
oListBar.TemplateDef = "dim var_Group"
oListBar.TemplateDef = var_Group
oListBar.Template = "var_Group.ToolTip = `This is a bit of text that's shown when the cursor hovers the group.`"
|
|
35
|
How do I disable showing the tooltip for all control
Dim oListBar as P
Dim var_Group as local
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.ToolTipDelay = 0
' oListBar.Groups.Add("ToolTip").ToolTip = "This is a bit of text that's shown when the cursor hovers the group."
var_Group = oListBar.Groups.Add("ToolTip")
oListBar.TemplateDef = "dim var_Group"
oListBar.TemplateDef = var_Group
oListBar.Template = "var_Group.ToolTip = `This is a bit of text that's shown when the cursor hovers the group.`"
|
|
34
|
How do I show the tooltip quicker
Dim oListBar as P
Dim var_Group as local
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.ToolTipDelay = 1
' oListBar.Groups.Add("ToolTip").ToolTip = "This is a bit of text that's shown when the cursor hovers the group."
var_Group = oListBar.Groups.Add("ToolTip")
oListBar.TemplateDef = "dim var_Group"
oListBar.TemplateDef = var_Group
oListBar.Template = "var_Group.ToolTip = `This is a bit of text that's shown when the cursor hovers the group.`"
|
|
33
|
How do I call your x-script language
Dim oListBar as P
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.ExecuteTemplate("Groups.Add(`Group 1`)").AddItem("Item 1")
|
|
32
|
How do I call your x-script language
Dim oListBar as P
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.Template = "BackColor = RGB(255,0,0)"
|
|
31
|
How do I remove the control's borders
Dim oListBar as P
Dim var_Item as local
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.BeginUpdate()
oListBar.Appearance = 0
oListBar.BorderWidth = 0
oListBar.BorderHeight = 0
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
' oListBar.Groups.Add("Group 1").AddItem("Item 1").Image = 1
var_Item = oListBar.Groups.Add("Group 1").AddItem("Item 1")
oListBar.TemplateDef = "dim var_Item"
oListBar.TemplateDef = var_Item
oListBar.Template = "var_Item.Image = 1"
oListBar.Groups.Add("Group 2").AddItem("Item 2")
oListBar.EndUpdate()
|
|
30
|
How do I specify width or the height of the control's borders
Dim oListBar as P
Dim var_Item as local
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.BeginUpdate()
oListBar.Appearance = 0
oListBar.BorderWidth = 0
oListBar.BorderHeight = 0
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
' oListBar.Groups.Add("Group 1").AddItem("Item 1").Image = 1
var_Item = oListBar.Groups.Add("Group 1").AddItem("Item 1")
oListBar.TemplateDef = "dim var_Item"
oListBar.TemplateDef = var_Item
oListBar.Template = "var_Item.Image = 1"
oListBar.Groups.Add("Group 2").AddItem("Item 2")
oListBar.EndUpdate()
|
|
29
|
How do I access the item from the point
Dim oListBar as P
oListBar = topparent:CONTROL_ACTIVEX1.activex
|
|
28
|
How do I access the group from the point
Dim oListBar as P
oListBar = topparent:CONTROL_ACTIVEX1.activex
|
|
27
|
How do I specify to highlight the items in the group, when the cursor hovers the item
Dim oListBar as P
Dim var_Item as local
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.BeginUpdate()
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oListBar.HighlightItemType = 3
' oListBar.Groups.Add("Group 1").AddItem("Item 1").Image = 1
var_Item = oListBar.Groups.Add("Group 1").AddItem("Item 1")
oListBar.TemplateDef = "dim var_Item"
oListBar.TemplateDef = var_Item
oListBar.Template = "var_Item.Image = 1"
oListBar.Groups.Add("Group 2").AddItem("Item 2")
oListBar.EndUpdate()
|
|
26
|
How do I specify to highlight the items in the group, when the cursor hovers the item
Dim oListBar as P
Dim var_Item as local
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.BeginUpdate()
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oListBar.HighlightItemType = 2
' oListBar.Groups.Add("Group 1").AddItem("Item 1").Image = 1
var_Item = oListBar.Groups.Add("Group 1").AddItem("Item 1")
oListBar.TemplateDef = "dim var_Item"
oListBar.TemplateDef = var_Item
oListBar.Template = "var_Item.Image = 1"
oListBar.Groups.Add("Group 2").AddItem("Item 2")
oListBar.EndUpdate()
|
|
25
|
How do I specify to highlight the items in the group, when the cursor hovers the item
Dim oListBar as P
Dim var_Item as local
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.BeginUpdate()
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oListBar.HighlightItemType = 1
' oListBar.Groups.Add("Group 1").AddItem("Item 1").Image = 1
var_Item = oListBar.Groups.Add("Group 1").AddItem("Item 1")
oListBar.TemplateDef = "dim var_Item"
oListBar.TemplateDef = var_Item
oListBar.Template = "var_Item.Image = 1"
oListBar.Groups.Add("Group 2").AddItem("Item 2")
oListBar.EndUpdate()
|
|
24
|
How do I specify the way the control highlight the items in the group
Dim oListBar as P
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.BeginUpdate()
oListBar.HighlightItemType = 0
oListBar.Groups.Add("Group 1").AddItem("Item 1")
oListBar.Groups.Add("Group 2").AddItem("Item 2")
oListBar.EndUpdate()
|
|
23
|
Is there any function to avoid painting the control while adding multiple items and groups
Dim oListBar as P
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.BeginUpdate()
oListBar.Groups.Add("Group 1").AddItem("Item 1")
oListBar.Groups.Add("Group 2").AddItem("Item 2")
oListBar.EndUpdate()
|
|
22
|
How do I decrease the delay to scroll a group
Dim oListBar as P
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.DelayScroll = 0
oListBar.Groups.Add("Group 1").AddItem("Item 1")
oListBar.Groups.Add("Group 2").AddItem("Item 2")
|
|
21
|
How do I display icons
Dim oListBar as P
Dim var_Group as local
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.SmallIcons = .t.
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
' oListBar.Groups.Add("Group 1").Image = 1
var_Group = oListBar.Groups.Add("Group 1")
oListBar.TemplateDef = "dim var_Group"
oListBar.TemplateDef = var_Group
oListBar.Template = "var_Group.Image = 1"
|
|
20
|
How do I display 32x32 icons
Dim oListBar as P
Dim var_Group as local
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.SmallIcons = .f.
oListBar.GroupHeight = 36
oListBar.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
' oListBar.Groups.Add("Group 1").Image = 1
var_Group = oListBar.Groups.Add("Group 1")
oListBar.TemplateDef = "dim var_Group"
oListBar.TemplateDef = var_Group
oListBar.Template = "var_Group.Image = 1"
|
|
19
|
How do I specify the height of the groups
Dim oListBar as P
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.GroupHeight = 40
oListBar.Groups.Add("Group 1")
oListBar.Groups.Add("Group 2")
|
|
18
|
How do I change the visual appearance of the groups
Dim oListBar as P
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.GroupAppearance = 1
oListBar.Groups.Add("Group 1")
oListBar.Groups.Add("Group 2")
|
|
17
|
How do I change the visual appearance of the groups, using your EBN files
Dim oListBar as P
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oListBar.BackColorGroup = 16777216
oListBar.Groups.Add("Group 1")
oListBar.Groups.Add("Group 2")
|
|
16
|
How do I change the background color for the groups
Dim oListBar as P
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.BackColorGroup = 255
oListBar.BackColorGroup2 = 255
oListBar.Groups.Add("Group 1")
|
|
15
|
How do I change the background color for the groups
Dim oListBar as P
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.BackColorGroup = 255
oListBar.Groups.Add("Group 1")
|
|
14
|
How do I change the control's foreground color
Dim oListBar as P
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.ForeColor = 16711680
oListBar.ForeColorGroup = 255
oListBar.Groups.Add("Group 1").AddItem("Item 1")
oListBar.Groups.Add("Group 2")
|
|
13
|
How can I change the control's font
Dim oListBar as P
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.Font.Name = "Tahoma"
oListBar.Groups.Add("Group 1")
|
|
12
|
How do I change the control's foreground color
Dim oListBar as P
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.ForeColor = 255
oListBar.Groups.Add("Group 1").AddItem("Item 1")
|
|
11
|
How do I change the control's background color
Dim oListBar as P
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.BackColor = 13158600
|
|
10
|
How do I change the control's border, using your EBN files
Dim oListBar as P
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oListBar.Appearance = 16777216 '1000000 +
|
|
9
|
How do I remove the control's border
Dim oListBar as P
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.Appearance = 0
|
|
8
|
How do I put a picture on the center of the control
Dim oListBar as P
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.Picture = oListBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oListBar.PictureDisplay = 17
|
|
7
|
How do I resize/stretch a picture on the control's background
Dim oListBar as P
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.Picture = oListBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oListBar.PictureDisplay = 49
|
|
6
|
How do I put a picture on the control's center right bottom side
Dim oListBar as P
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.Picture = oListBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oListBar.PictureDisplay = 34
|
|
5
|
How do I put a picture on the control's center left bottom side
Dim oListBar as P
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.Picture = oListBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oListBar.PictureDisplay = 32
|
|
4
|
How do I put a picture on the control's center top side
Dim oListBar as P
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.Picture = oListBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oListBar.PictureDisplay = 1
|
|
3
|
How do I put a picture on the control's right top corner
Dim oListBar as P
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.Picture = oListBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oListBar.PictureDisplay = 2
|
|
2
|
How do I put a picture on the control's left top corner
Dim oListBar as P
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.Picture = oListBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oListBar.PictureDisplay = 0
|
|
1
|
How do I put a picture on the control's background
Dim oListBar as P
oListBar = topparent:CONTROL_ACTIVEX1.activex
oListBar.Picture = oListBar.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
|